unit TimerQuestion;

interface

uses
  Windows, ActiveX, Classes, ComObj, ToolLib_TLB, StdVcl
  SysUtils;

type
  TTimerQuestion = class(TTypedComObject, 
                                               ITimerQuestion)
  protected
    function GetTime: WideString; stdcall;
    {Declare ITimerQuestion methods here}
  end;

implementation

uses ComServ;

function TTimerQuestion.GetTime: WideString;
begin
end;

initialization
     TTypedComObjectFactory.Create(ComServer, 
                          TTimerQuestion, 
                          Class_TimerQuestion,
                          ciMultiInstance, 
                          tmApartment);
end.
